home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs04.d81 / ebbs34.arc / 64 CONFIG (.txt) next >
Commodore BASIC  |  2009-10-10  |  6KB  |  201 lines
  1. 1000 REM "[197][194][194][211] 64 [195]ONFIG [205]AKER
  2. 1010 [143] "(null)RITTEN BY VALD (null)ARRY
  3. 1020 REM "[213]PDATE : 870728
  4. 1030 :
  5. 1040 [143] "(null)IST THIS PROGRAM, SETUP
  6. 1050 REM "CONFIGS AS DESIRED THEN
  7. 1060 [143] "RUN IT TO WRITE CONFIG FILE.
  8. 1070 :
  9. 1080 MT=2:REM MODEM TYPE
  10. 1090 REM 1 = CBM'S 1650 OR COMPATIBLE
  11. 1100 REM 2 = CBM'S 1670 (300/1200)
  12. 1110 REM 3 = RS232 (ADC, CERMETEK)
  13. 1120 REM 4 = HAYES/HAYES COMPAT/MISC
  14. 1130 IFMT=1THENRI=0:CA=0:AA=0:OK=32:MS=0
  15. 1140 IFMT=2THENRI=0:CA=0:AA=1:OK=32:MS=0
  16. 1150 IFMT=3THENRI=8:CA=16:AA=0:OK=6:MS=32
  17. 1160 IFMT=4THENRI=0:CA=0:AA=1:OK=6:MS=0
  18. 1170 :
  19. 1180 REM RI=RING INDICATOR/EITHER 8/0
  20. 1190 REM CA=CARRIER DETECT/EITHER 16/0
  21. 1200 REM AA=AUTO ANSWER/0=AUTO/1=MANUAL
  22. 1210 REM OK=MODEM PRIMER/TRY 6,32 OR 38
  23. 1220 REM MS=MODEM SPEED/EITHER 32/0
  24. 1230 :
  25. 1240 OS=02:REM OPEN/CLOSED SYSTEM FLAG
  26. 1250 REM 0  = CLOSED SYSTEM
  27. 1260 REM 1  = LOOKY LOO:NO POST/EMAIL/FEEDBACK
  28. 1270 REM 2  = LOOKY LOO 2:FEEDBACK OK
  29. 1280 REM 'OS' EQUALS NEW USERS LEVEL
  30. 1290 REM SEE ALSO 'LEVELS'
  31. 1300 :
  32. 1310 REM SYSTEM LEVELS - ADD VALUES
  33. 1320 REM USE EBBS LEVEL CALC TO FIGURE
  34. 1330 REM LEVELS WHEN IN THE USERFILE EDITOR.
  35. 1340 REM ENTER '*' TO CALC A LEVEL.
  36. 1350 REM ENTER '?' TO DISPLAY ACCESS.
  37. 1360 REM FOLLOWING INFO IS FYI ONLY.
  38. 1370 :
  39. 1380 REM 0 - NO ACCESS AT ALL
  40. 1390 REM 1 - READ ONLY 1:MB1/NO POST/EMAIL
  41. 1400 REM 2 - READ ONLY 2:MB1/FEEDBACK OK
  42. 1410 REM 4 - MSG BASE 1
  43. 1420 REM 8 - MSG BASE 2
  44. 1430 REM 16 - MSG BASE 3
  45. 1440 REM 32 - MSG BASE 4
  46. 1450 REM 64 - MSG BASE 5
  47. 1460 REM 128 - XFER 1
  48. 1470 REM 256 - XFER 2
  49. 1480 REM 512 - XFER 3
  50. 1490 REM 1024 - XFER 4
  51. 1500 REM 2048 - XFER 5
  52. 1510 REM 4096 - 99 LINES/NO POST LIMIT
  53. 1520 REM 8192 - NO TIME LIMIT
  54. 1530 REM 16384 - SYSOP ACCESS
  55. 1540 :
  56. 1550 XF=0:REM XFER OPEN/CLOSED FLAG
  57. 1560 REM 0 = XFER OPEN
  58. 1570 REM 1 = XFER CLOSED
  59. 1580 :
  60. 1590 AU=1:REM UPDATE DL FILES FLAG
  61. 1600 REM 0 = UPDATE DL FILES MANUALLY
  62. 1610 REM 1 = SYSTEM UPDATES DL FILES
  63. 1620 :
  64. 1630 D1=08:REM EMAIL DRIVE
  65. 1640 :
  66. 1650 HD(1)=08:REM MSG BASE 1 DRIVE
  67. 1660 HD(2)=08:REM MSG BASE 2 DRIVE
  68. 1670 HD(3)=08:REM MSG BASE 3 DRIVE
  69. 1680 HD(4)=08:REM MSG BASE 4 DRIVE
  70. 1690 HD(5)=08:REM MSG BASE 5 DRIVE
  71. 1700 :
  72. 1710 XD(1)=08:REM XFER SECTION 1 DRIVE
  73. 1720 XD(2)=08:REM XFER SECTION 2 DRIVE
  74. 1730 XD(3)=08:REM XFER SECTION 3 DRIVE
  75. 1740 XD(4)=08:REM XFER SECTION 4 DRIVE
  76. 1750 XD(5)=08:REM XFER SECTION 5 DRIVE
  77. 1760 :
  78. 1770 REM *143 DIR ENTRYS PER DRIVE*
  79. 1780 :
  80. 1790 MB%=5:REM # OF ACTIVE MSG BASES
  81. 1800 :
  82. 1810 TD=08:REM TEXT FILES DRIVE
  83. 1820 :
  84. 1830 MM(1)=40:REM MSG BASE 1 CAPACITY
  85. 1840 MM(2)=10:REM MSG BASE 2 CAPACITY
  86. 1850 MM(3)=10:REM MSG BASE 3 CAPACITY
  87. 1860 MM(4)=10:REM MSG BASE 4 CAPACITY
  88. 1870 MM(5)=10:REM MSG BASE 5 CAPACITY
  89. 1880 :
  90. 1890 PO(1)=3:REM MAX POSTS/MB1
  91. 1900 PO(2)=2:REM MAX POSTS/MB2
  92. 1910 PO(3)=2:REM MAX POSTS/MB3
  93. 1920 PO(4)=2:REM MAX POSTS/MB4
  94. 1930 PO(5)=2:REM MAX POSTS/MB5
  95. 1940 :
  96. 1950 TL%=45:REM ONLINE TIME LIMIT
  97. 1960 :
  98. 1970 REM MSG BASE NAMES
  99. 1980 MB$(1)="[208]UBLIC [196]ISCUSSION"
  100. 1990 MB$(2)="[195]64/[195]128"
  101. 2000 MB$(3)="[208]ROGRAMMING"
  102. 2010 MB$(4)="[198]RIENDS"
  103. 2020 MB$(5)="[211]YSOPS"
  104. 2030 :
  105. 2040 REM SYSOP NAME
  106. 2050 SY$="[211][217][211][212][197][205] [207][208][197][210][193][212][207][210]"
  107. 2060 :
  108. 2070 REM BBS NAME
  109. 2080 BN$="[197][194][194][211] 64"
  110. 2090 :
  111. 2100 REM BBS CITY
  112. 2110 CI$="[197][194][194][211] [200][197][193][196][209][213][193][210][212][197][210][211]"
  113. 2120 :
  114. 2130 REM DL SECTION NAMES
  115. 2140 DL$(1)="[195]64"
  116. 2150 DL$(2)="[195]128"
  117. 2160 DL$(3)="[193][205][201][199][193]"
  118. 2170 DL$(4)="[195][208]/[205]"
  119. 2180 DL$(5)="[205][201][211][195]"
  120. 2190 :
  121. 2200 PRINT"[147]";:CR$=CHR$(13):POKE53280,6:POKE53281,1
  122. 2210 PRINT"[154]                                        ";
  123. 2220 PRINT"       [197][194][194][211] 64 [195]ONFIG [198]ILE [205]AKER        ";
  124. 2230 PRINT"                                        ";
  125. 2240 PRINT"      [197][194][194][211] 64 WRITTEN BY [197]D [208]ARRY       ";
  126. 2250 PRINT"                                        "
  127. 2260 PRINTTAB(8)"(1) [144][200]ELP/[201]NFORMATION"
  128. 2270 PRINTTAB(8)"(2) [144][215]RITE [195]ONFIG [198]ILE"
  129. 2280 PRINTTAB(8)"(3) [144][197]DIT [197][194][194][211] [195]ONFIG'S"
  130. 2290 PRINTTAB(8)"(4) [144][212]EST FOR [205]ODEM [211]ETTINGS[154]":PRINT
  131. 2300 :
  132. 2310 GETA$:IFA$=""THEN2310
  133. 2320 IFA$="1"THEN2530
  134. 2330 IFA$="2"THEN2370
  135. 2340 IFA$="3"THENLIST1000-1060:END
  136. 2350 IFA$="4"THEN2760
  137. 2360 GOTO2310
  138. 2370 PRINT" [201][206][211][197][210][212] [211][217][211][212][197][205] [198][201][204][197][211] [196][201][211][203]/[208][210][197][211][211] [210][197][212][213][210][206]"
  139. 2380 GETA$:IFA$<>CHR$(13)THEN2380
  140. 2390 PRINT"      [215]RITING [197][194][194][211] 64 CONFIG FILE"
  141. 2400 OPEN1,8,2,"@0:CFG.64,S,W":R$=CHR$(13)
  142. 2410 PRINT#1,MT:PRINT#1,RI:PRINT#1,CA:PRINT#1,AA:PRINT#1,OK
  143. 2420 PRINT#1,MS:PRINT#1,OS:PRINT#1,XF:PRINT#1,AU
  144. 2430 PRINT#1,D1:FORI=1TO5:PRINT#1,XD(I):NEXT
  145. 2440 FORI=1TO5:PRINT#1,HD(I):NEXT
  146. 2450 PRINT#1,MB%:PRINT#1,TD
  147. 2460 FORI=1TO5:PRINT#1,MM(I):NEXT
  148. 2470 FORI=1TO5:PRINT#1,PO(I):NEXT
  149. 2480 PRINT#1,TL%
  150. 2490 FORI=1TO5:PRINT#1,MB$(I):NEXT
  151. 2500 PRINT#1,SY$CR$BN$CR$CI$
  152. 2510 FORI=1TO5:PRINT#1,DL$(I):NEXT
  153. 2520 CLOSE1:PRINT"       [197][194][194][211] CONFIG FILE CREATED.":END
  154. 2530 PRINT"[147]        [156][197][194][194][211] [200][197][204][208] - [211]ETTING UP:"
  155. 2540 PRINT"1 - [210]UN 64 FILEMAKER."
  156. 2550 PRINT"2 - [204]IST/EDIT/RESAVE/RUN THIS PROGRAM."
  157. 2560 PRINT"3 - [210]UN [197][194][194][211]/[211]ETUP FILES (OB, ID, ETC)
  158. 2570 [153]"4 - (null)OOK AROUND. (null)HEN READY, GO (null)(null)(null)RIGHT$(null)VAL!"
  159. 2580 [153]"5 - (null)END BIG BUCKS/PRECIOUS METALS."
  160. 2590 [153]"VALPEEKPEEK(null) IS FREEWARE IN COMPILED FORM."
  161. 2600 [153]"(null)LEASE FEEL FREE TO PASS IT AROUND"
  162. 2610 [153]"AND/OR MAKE FREEWARE DONATIONS."
  163. 2620 [153]"VALPEEKPEEK(null) 64 BASIC CODE, ML SOURCE CODE,"
  164. 2630 [153]"DOC'S & REGISTRATION IS $40."
  165. 2640 [153]"(null)RDERS (LEN(null)STR$ (null)KAY)/(null)UESTIONS:"
  166. 2650 [153]"VALD (null)ARRY/VALPEEKPEEK(null)64"
  167. 2660 [153]"8711 (null)ANGDON (null)T. #8"
  168. 2670 [153]"(null)EPULVEDA, LENATN 91343"
  169. 2680 [153]"818-891-9350 - VOICE - 12-6PM"
  170. 2690 [153]"818-846-8083 - LEN(null)(null)VAL(null)ATN(null)(null) VALPEEKPEEK(null) (#2)":[153]"CHR$VALNIE MAILBOX :VALPEEKPEEK(null)"
  171. 2700 [153][163]8)"STOP(null)RESS (null)VAL(null)(null)(null)(null) TO CONTINUE";
  172. 2710 [161]A$:[139]A$[179][177][199](13)[167]2710
  173. 2720 [138]
  174. 2730 [159]2,8,2,"CON*,S,R"
  175. 2740 [161]#2,A$:[153]A$;:[139]ST[178]0[167]2740
  176. 2750 [160]2
  177. 2760 [143] TEST FOR MODEM SETTINGS
  178. 2770 [153]"LOADSTOP                                        ";
  179. 2780 [153]"   (null)LEASE NOTE THAT RIGHT$ CANNOT DETERMINE  ";
  180. 2790 [153]"    THE (null)ATN(null)(null) POSSIBLE COMBINATIONS OF   ";
  181. 2800 [153]" (null)(null)232 INTERFACES AND MODEMS. (null)HIS TEST ";
  182. 2810 [153]"    WILL (null)(null)(null)(null) BE AS ACCURATE AS YOUR    ";
  183. 2820 [153]"        EQUIPMENT WILL ALLOW.           ";
  184. 2830 [153]"                                        "
  185. 2840 [153]"CONTRIGHT$NSURE THAT YOUR MODEM AND/OR INTERFACE"
  186. 2850 [153]"IS PLUGGED IN AND TURNED ON.":[153][166]10)"LEFT$IT (null)VAL(null)(null)(null)(null)CONT WHEN READY"
  187. 2860 [161]A$:[139]A$[178]""[167]2860
  188. 2870 [159]1,2,3,[199](6)[170][199](0):[143] SETUP RS232 PORT
  189. 2880 A[178][194](56577)[175]8:[139]A[178]8[167]A[178]0
  190. 2890 B[178][194](56577)[175]16:[139]B[178]16[167]B[178]0
  191. 2900 C[178][194](56577)[175]32:[139]C[178]32[167]C[178]0
  192. 2910 [153]"(null)RIGHT$ - ((null)RIGHT$(null)CHR$ RIGHT$(null)STR$RIGHT$LENATN(null)(null)(null)) :"A
  193. 2920 [153]"LENATN - (LENATN(null)(null)RIGHT$VAL(null) STR$VAL(null)VALLEN(null)) :"B
  194. 2930 [153]"(null)(null) - ((null)(null)STR$VAL(null) (null)(null)VALVALSTR$)    :"C
  195. 2940 [153]"ATNATN = 0 IF LINE 12/PIN MID$ SUPPORTED"
  196. 2950 [153]"ATNATN = 1 IF LINE 12/PIN MID$ (null)(null)(null) SUPPORTED"
  197. 2960 [153]"ATNATN DETERMINES CALLERS BAUD RATE."
  198. 2970 [153]:[153][166]10)"LEFT$IT (null)VAL(null)(null)(null)(null)CONT TO CONTINUE"
  199. 2980 [161]A$:[139]A$[179][177][199](13)[167]2980
  200. 2990 [138]
  201.